home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / TARCHIV.ZIP / LOGFILE.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-27  |  811b  |  54 lines
  1. Unit Logfile;
  2.  
  3.  
  4. Interface
  5.  
  6. Uses Toolbox;
  7.  
  8. Type
  9.    PLogfile = ^TLogfile;
  10.    TLogfile = Object
  11.                DoLog    : Boolean;
  12.                Log      : Text;
  13.  
  14.                Constructor Init (Logfilename : String);
  15.                Procedure   Writelog (Message : String);
  16.                Destructor  Done;
  17.               End;
  18.  
  19. Implementation
  20.  
  21. Constructor TLogfile.Init (Logfilename : String);
  22. Begin
  23.  DoLog := (Length(Logfilename)>0);
  24.  If DoLog Then Begin
  25.   {$I-}
  26.   Assign (Log,LogFilename);
  27.   If FileExists (LogFilename) Then
  28.    Append (Log)
  29.   Else
  30.    Rewrite (Log);
  31.   {$I+}
  32.  End;
  33. End;
  34.  
  35. Procedure TLogfile.Writelog (Message : String);
  36. Begin
  37.  If DoLog Then Begin
  38.   {$I-}
  39.   Writeln (Log,Message);
  40.   {$I+}
  41.  End;
  42.  Writeln (Message);
  43. End;
  44.  
  45. Destructor TLogfile.Done;
  46. Begin
  47.  {$I+}
  48.  Close (Log);
  49.  {$I+}
  50. End;
  51.  
  52. Begin
  53. End.
  54.